home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / RANDOM.DO < prev    next >
Text File  |  1991-05-30  |  116b  |  6 lines
  1. /*
  2.     demonstration of the dObject random number generator
  3. */
  4. randomInit(7);
  5. for(i=0;i<15;i=i+1) ? random(1000);
  6.